home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00240_CONTROLA POSICION FINAL VIDEO.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  1.3 KB  |  59 lines
  1. on exitFrame
  2.   global video, full_video, niv_sonido1, niv_sonido2
  3.   if siguevid() then
  4.     go(the frame)
  5.   else
  6.     set the movieRate of sprite 16 to 0
  7.     updateStage()
  8.     if video = 0 then
  9.       set video to video + 1
  10.       puppetSound(0)
  11.       set the volume of sound 1 to niv_sonido1
  12.       set the volume of sound 2 to niv_sonido2
  13.       set the visible of sprite 16 to 0
  14.       updateStage()
  15.       go(the frame + 1)
  16.     else
  17.       if video = 1 then
  18.         set video to video + 1
  19.         if full_video then
  20.           go(the frame - 1)
  21.         else
  22.           go(the frame + 1)
  23.         end if
  24.       end if
  25.     end if
  26.   end if
  27. end
  28.  
  29. on mouseUp
  30.   global video, idioma, Debug, full_video, EnVideo, niv_sonido1, niv_sonido2
  31.   if not Debug then
  32.     exit
  33.   end if
  34.   set the movieRate of sprite 16 to 0
  35.   updateStage()
  36.   if (video = 0) or (video = 4) then
  37.     set video to video + 1
  38.     set EnVideo to 0
  39.     puppetSound(0)
  40.     set the volume of sound 1 to niv_sonido1
  41.     set the volume of sound 2 to niv_sonido2
  42.     set the visible of sprite 16 to 0
  43.     updateStage()
  44.     go(the frame + 1)
  45.   else
  46.     if video = 1 then
  47.       set video to video + 1
  48.       if full_video then
  49.         go(the frame - 1)
  50.       else
  51.         go(the frame + 1)
  52.       end if
  53.     else
  54.       set video to video + 1
  55.       go(the frame - 1)
  56.     end if
  57.   end if
  58. end
  59.